home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO4.DMS / in.adf / Tutorials / Interface / Simple_Requester.AMOS / Simple_Requester.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-28  |  908 b   |  26 lines
  1. '************************************* 
  2. '*    AMOS Professional Interface    * 
  3. '*                                   * 
  4. '*         A simple requester        * 
  5. '*                                   * 
  6. '*      (c) Europress Software       * 
  7. '*                                   * 
  8. '*          Ronnie Simpson           * 
  9. '************************************* 
  10. '
  11. Load "AMOSPro_Tutorial:Tutorials/Interface/Example_resource.abk"
  12. Resource Bank 16
  13. Resource Screen Open 0,640,200,0
  14. Flash Off : Curs Off : Cls 0 : Paper 0 : Pen 8
  15. Palette ,,,,$404,$808,$B0B,$F0F
  16. Hide : Wait Vbl 
  17. A$=A$+"BOx      48,80,1,590,120;"
  18. A$=A$+"BAse     48,80;"
  19. A$=A$+"LIne     16,8,10,520;"
  20. A$=A$+"POutline 80,16,1VA,0,11;"
  21. A$=A$+"LIne     16,25,10,520;"
  22. A$=A$+"RUn      250,%0011;"
  23. A$=A$+"EXit;"
  24. X=Dialog Box(A$,1,"This requester will self destruct in 5 seconds")
  25. Cls 0 : Wait Vbl : Boom 
  26. Flash 0,"(900,2)(990,2)(009,2)" : Wait 20 : Edit